DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 
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- TITLE Hd Pe = COMMAND INTERPRETER INITIALIZATION 
5 -IDENT ‘v04-000' 


—PARAAARAAAAAAASLALA LASSE ALA LEASE RELATES ESLER EEE ESSE EEE EERE ESET ECCS STE CSE E Ea 


& 
COPYRIGHT ic) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH pats i AND WITH TH 


NC T NOT SOFTWARE OR 0 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


. 
;* 
3* 
3% 
;* 
;* 
;* 
;* 
;* 
3* TRANSFERRED. 
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3* 
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; He oh oy tae IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


aR A Uh 8 a be 
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A 
CORPORATION. 


;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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; D. N. CUTLER 29-MAR-77 
; COMMAND LANGUAGE INTERPRETER INITIALIZATION 
MODIFICATIONS: 


v03-022 HWS0091 Harold Schultz 22-Jul-1984 
Initialize PRC_B_EXONLYL, PRC_V_SAVCMDV, and 
PRC_V_SAVIMGV 


v03-021 HWS0043 Harold Schultz 30-Mar-1984 
Don’t preset CTLSGT_CLINAME. 


v03-020 HwWS0033 Harold Schultz 15-Mar-1984 
When spawning a sub-process, pass on to RMS the verify 
image flag setting of the parent process. 


v03-019 TMKO001 Todd M. Katz 07-Mar-1984 

A hash code field, LNMX$W_HASH, has been added to every 

translation block of every logical name and logical name table. 

This hash code field will be used in an optimization of logical 

: name table name processing. However, within the context of a 

; spawned process, during processing of the logical name table 
records, the contents of the hash code field in every 
translation block should just be ignored. 


; V03-018 HwS0009 Harold Schultz 13-Feb-1984 
: Add PRC_V_CARRCNTL flag progess ing to indicate 
presence or absence of carriage control in gronet 


: field instead of using contents of prompt field. 
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v03-017 HwS0001 Harold Schultz | hb 
RR, set protection mask for private logical name 
v03-016 pceors Peter George 22-Sep-1983 


Fill in IDF_L_FILENAME for initial stack frame. 
Correctly turn off image verification in subprocesses. 


v03-015 PCG0017 Peter George 12-Sep-1983 
Expect unwanted logical names to have confine attribute. 
cropegate CCL bits from PPD data structure. 
Set CTLSGT_CLINAME. 


v03-014 PCG0016 Peter George 16-Au ve 
Correctly supply address of I0SB to I0$M * co ree 
Do not perfrom IOSM_TT_PROCESS Q10 in nowait subpro 
Remove code that deassigns transmitted SYSSINPUT ond. $YSSOUTPUT. 


v03-013 PCG0015 Peter Coorns legendas 
Use event Hegs more intelli met Sib 
Do an IOSM_TT_PROCESS set mode Q10 when creating an 
interactive process. 


v03-012 PCG0014 Peter George 13-Jun-1983 
Fix bug in initial command procedure parameter creation. 
tall RAS rundown for loginout. 
Reformat new system seretes calls. 
Remove DCL_L_T 


v03-011 RASO157 Ron Schaefer 27-May-1983 
Add support for new logical names structures. 


v03-010 PCG0013 Peter George 27-May-1983 
Add support for output log flushing and image verification. 


v03-009 PCG0012 never George 20-Apr-1983 
Expect prompt and keypad state to be passed by spawn. 
Do not treat %XFF tron LOGINOUT as a null string. 


v03-008 PCG0011 r George 29-Mar-1983 
Sort out CTX_C KEYS *Getini lone. 


v03-007 ecesete Peter George 15-Feb-1983 
Convert £8 new ptrycture level. 
Init P1-P8 for login command procedur 
Create and define SRESTART and BATCHSREST ART 
Increase logical name buffers from 64 to LNMSC -NAMLENGTH. 
Make P1-P8 global symbols in batch jobs. 
Add support for yabot al symbol oot tions. 
Speed up spawn pyane ol allocation. 
Hook up terminal 


v03-006 PCG0009 ter onetee 28-Jan-1983 
Change default pre ew OL Ey - 
Override SYSSOUTPUT definition transmitted in a SPAWN. 


v03-005 PCG0008 Peter George 10-Jan-1983 
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v04 prSEE SBS S8i27518 PONIES Macro Oe — 
00 115 ; pevtae MAX_DEPTH synbo Ateott . 
0 118 3 Remove all referen ERRIFI RRRAB. 
8 17 3 Init “eRe Wd ouTISI. “BRC 6 3 ee Pa rb pouTRasctx, and 
118 ; PRC_T_OUTD vi. Create vats al 
0 119 ; Set up ght handler once here, ug bene tay oF on every 
0 120 ; image activation. Terminate process if captive account 
44 : 13 and cannot open command procedure. 
444 -' : : v03-004 PCG0007 Peter George 29-Dec-1982 
0000 124; Do not reset global symbols in succeeding 
44 } 5 : procedures in a batch job. 
$000 1 $ : v03-003 PCG0006 Peter George 01-Dec-1982 
4464 } g ; Comment out references to the recall buffer. 
0000 130; v03-002 PCG000S Peter George 19-Nov-1982 
0000 131; Make prompt string constants global. 
it 136 : Allow up to 16 stack levels. 
0000 134; V03-001 PCG0004 Peter George 20-Aug-1982 
0000 135; Initialize PRC_L_NXTCMDPTR 
0000 136; Set initial prompt string. 
0000 137 ;--- 
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| 
SEP=1984 :57:15 VAX/VMS Macro v04-00 Page 
HIS Tae CHS eT TOTAL , ve 3) 
189 ; 
139 ; TABLE OF RESERVED SYMBOLS | 
192 RESERVED: ; 
198 -BYTE 5 ;MAXIMUM LENGTH OF RESTART VALUE 
194 “ASCIC '$RESTART’ SRESTART VALUE L 
195 -BYTE PRC_L_RESTART sOFFSET TO RESTART VALUE ADDRESS 
196 -BYTE 1 {MAXIMUM LENGTH OF SEVERITY LEVEL 
19 SASCIC 'SSEVERITY' TERROR SEVERITY LEVEL SYMBOL 
198 BYTE PRC_L_SEVERITY :OFFSET TO SEVERITY VALUE ADDRESS 
200 [ASCIC '$STATUS’ SSTATUS VALUE SYMBOL 
201 -BYTE PRC_L_STATUS SOFFSET To STATUS VALUE ADDRESS 
202 “BYTE 0 : <== END OF TABLE 


| 
;MAXIMUM LENGTH OF STATUS VALUE 


04-000 


D1 | 
= COMMAND INTERPRETER INITIALIZATION 15-SEP-1984 ; :57:15 VAX/VMS Macro V04-00 Page é 
COMMAND INTERPRETER START UP 4-SEP-1984 93:41:16 EDCL.SRCJINITIAL. MAR; 1 (3) 
HL 4 .SBTTL COMMAND INTERPRETER START UP 
2 $ $ DCLSSTARTUP = COMMAND INTERPRETER START UP 
ber g ; THIS ENTRY POINT 1s yfUMPED TO AT THE CONCLUSION OF LOGGING A USER ONTO 
SF ; THE SYSTEM. ALL INPUT AND OUTPUT FILES ARE OPEN AND THE COMMAND LANGUAGE 
Hi 19 3. : INDEPENDENT DATA NREA HAS BEEN INITIALIZED. 
O5F hel 
00000000 13 -PSECT DCLSSBASE,BYTE,RD,NOWRT 
SE 00000008'GF 00 0009 15 MOVL  G*CTLSAL_STACK+8,SP sRELOAD SUPERVISOR STACK POINTER 
D D4 16 CLRL SINDICATE NO PREVIOUS FRAME 
OOSF°CR 6€ FA 9009 17 CALLG  (SP),W*DCL$STARTUP ‘SETUP INITIAL CALL F 
oy Be See 
0000005F 0 .PSECT DCLS$ZCODE,BYTE,RD,NOWRT 
005 1 DCLSSTARTUP:: ; COMMAND | INTERPRETER START UP 
0000 OOS5F ¢ eWORD “M<> ZEN NTRY 
7E D4 0061 CLRL = = (SP) SETUP DURRY PSL (@PRC_L SAVAP= =PRVPSL) 
68'AF 6E FA 0063 4 CALLG (SP),B*10$ [CREATE DUMMY FP AFTER -SORMY 
04 0067 5 RET 
0000 0068 226 10S: . WORD 
6D OO000'CF 9E 006A 227 MOVAB W*DCLSCONDHAND, (FP) sESTABLISH CONDITION HANDLER 
00000000'GF O0000002"EF 9E O06F 8 MOVAB L*“DCLSUTLSERV+2,G*CTLSAL. CLICAL SET CALL BACK VECTOR 
5A 00000000'°GF  9€ 007A ; MOVAB G*CTLSAG_CLIDATA,R10. GET A ADDRESS 0 PPD 
0081 1; 
0081 $ é : INITIALIZE CL1 PROCESS WORK AREA. IF SECOND OR GREATER STEP OF A BATCH 
0081 233 ; JOB, THEN DO NOT RESET PRC_Q ALLOCREG, PRC_Q_GLOBAL, PRC_L_LSTSTATUS, 
0081 34 ; PRC_L_STATUS, OR PRC_L_SEVERITY. 
5B 08 AA 00 9081 % MOVL  PPD$Q_CLIREG+4(R10),R11 ; GET ADDRESS OF CLI PRIVATE STORAGE 
02 €1 0085 237 BBC #PPD$U_CON ug - : FIRST STEP IN BATCH JOB? 
02 AA 0087 238 PPDSW_FLAGS(R105 ,15$ : 
7E 20 AB 7D OO8A 239 MOVQ = PRC_Q™ALLOCREG(R11),-(SP) ; NO. SAVE PRC_Q_ALLOCREG 
7E 28 AB 7D 008 40 MOVQ = PRC"Q~GLOBAL(R11) ,-(SP) : D PRC_Q_ 
7E 0080 CB 00 009 41 MOVL PRC STATUS (R11) ,=(SP) ; AND PRCILILSTSTATUS 
099 4g ASSUME PRC_C STATUS EQ PRC_L.SEVERITY+4 ; AND PRC"L~STATU 
50 AB S7D «20097~=—s MOVQ tc SEVERITY RTD, =CSP) : AND PRCL SEVERITY 
00 6€ 00 2C 0098 244 MOVCS ).4 : ZERO ALL STORAGE 
68 04 AA O9F 245 PO$Q_CLIREG(R10) , (R11) ; 
50 AB BE «= 7D :«(OOA2 «S46 mova ( *PRC_L_SEVERITY(R11) : RESTORE PRC FIELDS 
0089 (BBE b0 6 6 267 MOVL  (SP)+,PRC“L“LSTSTATUS(R11) 3 
AB BE 7D OOAB 248 MOVO (SP)+,PRC~Q-GLOBAL(R11) : 
20 AB 3 7D 49 mCVQ = (SP) +, PRC“Q"ALLOCREG(R11) F 
11 0083 250 BRB 16$ ; 
00 6€ 00 2C 0085 251 15S: movcS 4#0,(SP),#0,- : ZERO ALL STORAGE 
6B 04 AA 089 3g PPO$Q_CLIREG(R10), (R11) : 
6B SC 7D ter 33 16$: MOVQ AP,PRC_L_SAVAP(R11) : SAVE INITIAL AP AND FP 
F 55; 
BF $7 : SET UP PRC BASED EXIT HANDLER BLOCK (REST OF BLOCK IS ZERO). 
238 "CF 9E as 38 MOVAB WODCL SENT THAMD : SET ADDRESS OF EXIT HANDLER 
09C (B 49 0066 260 MOVAB PRCTLTEXTCOD(R11).- > SET ADDRESS OF REASON FOR EXIT 


a a 
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14-605 COMMAND INTERPRETER START UP 4-SEP=19£5 23:41:16 (CDCL.SRCJINITIAL.MAR; 1. (3) 
0098 CB CA 261 PRC_L_EXTPRM(R11) 3 
Bee | 
th re ; COPY AND ACT ON INFORMATION IN PPD 
1€ AA BO O00CD 66 MOVW PPOs. INPCHAN(R10) , - ; COPY INPUT CHANNEL 
64 AB OD 6 PRC_W- INPCHAN(R11) 
OC 02 AA ot —1 00D 68 BBC opp Post tie FLAGS(RI0), oa? COPY JOB MODE 
00CO 8F AB 00D $9 BISW HOO a4 RCM VERIFY ; AND TURN VERIFY ON IF BATCH 
68 AB ODB 0 Pre Caf FLA 
OOAF CB 80 BF 8 OD 71 BISB WPRE_A_VERIMAGE PRC_B_ ruacs2cRi; 
02000000 8F C 43 ue 20$: BISL #PRCIM™CTRLY ; ENABLE CTRL/Y 
0084 CB E 7 PRC cour OuTOFBANDCRI1) | 
00 €1 OOEC 74 BBC #PPBS0_N ; COPY NOCONTROLY MODE 
06 02 AA OOEE 275 PPDSW “Fuags(R{0) .25 : 
OOF 1 76 CLRBIT PRC_V“CTRLY,PRC_L SO TOFBAND (R11): 
OOAC CB. 04~= = BO s«é€OOOF7 77 25$: MOVW acPat MDEPQIB(R11) 3: SET EXAMINE MODE TO HEX,WIDTH TO 4 
0133 CB. «9E «(OOF 78 MOVAB PREG ORMMANDS(R11),- ; ADDRESS OF RECALL BUFFER 
012F ¢B 9199 79 PRC -{ —eeR Nee R RTS : | 
10 80 
8183 81; 
0103 He 3 SET UP INITIAL PROMPT. 
OOF1 CB sFF3O CF 80 8198 84 MOVW DCLSCRLF , gre W_PMPTCTRL(R11) : SET CARRIAGE CONTROL | 
019A 5 SETBIT PRC_V CNTL{PRC_W_FLAGS(R11) ; INDICATE CR LF IN PROMPT 
OOF3 CB. OFF27 CF D0 (01 E 86 DeLST= PRORPT PRC B “CONTINUE(R11); SET DEFAULT PROMPT 
90 011 87 MOVE BOCLSt LEN : SET PROMPT LENGTH 
OOFO CB 0117 288 8. PROMPTLENCAT1) : 
OITA 390 
O11A 91 ; FOR BATCH JOBS, SETUP TO EXIT ON ERRORS. FOR INTERACTIVE JOBS, 
atta 38 3; DO AN IMPLIED “’SET NOON’. 
6A AB 0202 8F BO OITA 94 MOVW #208!2, PRC W ONLEVEL (R11) ASSUME "‘ON ERROR THEN EXIT" 
06 68 AB 06~—sCEO 0120 95 BS #PRC ODE ,PRC_W FLAGS(R11), 308: IF BATCH JOB, THIS IS OK 
6A AB 0808 8F BO 0125 96 MOVW *Ba8TSs PRC G ONCEVEL CRIT) ; IF INTERACTIVE. “SET NOON’ 


—_ i , 


INITIA - 
¥04-006 COMMAND 


: 

=z 

= 
z 


1 | 
PR yee. INITEAL IZATION 177360 = 138% 93:37: AX/VMS Macro v04-00 Page 8 
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I SYMBOL TABLE AND GLOBAL, LOCAL, LABEL, AND KEYPAD 


Ser BBS spPosy CONTINU 


EO - IF FIRST STEP IN BATCH JOB 
17 02 PPDSW_FLAGS(R105 , 35$ THEN INIT HEADER AND GLOBAL TABLE — 
50 OC 7D MOVQ = PPDS$A eck istmreL (410) RO GET LENGTH/ADDRESS OF REGION | 
20 DO MOVL  R1,PRC_G_ALLOCREG(R11) INIT LISTHEAD OF ALLOCATION REGION | 
D4 CLRL Ri)+ CLEAR LINK TO NEXT F REE BLOCK 
0 MOVL RO,(RI SET LENGTH OF THIS FREE BLOCK 
50 28 MOVAB PRC_Q BL OBAL(RI1) .RO GET ADDRESS OF GLOBAL TABLE LISTHE 
p MOV INIT GLOBAL SYMBOL TABLE EMPTY | 


; GET ADDRESS OF LABEL TABLE LISTHEA 
INIT LABEL TABLE EMPTY 


MOV (RO) +, (RO)+ 
35$: mOVAB PRC_Q LABEL(R11),RO 


Sete Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


“ 

oO 

Ww 

oO 
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0 D0 MOVL (RO)+ 
50 38 9 MOVAB PRC 3 + (BCALCRIT), RO GET ADDRESS OF LOCAL TABLE LISTHEA 
0 44 ROVE RO geno. ) ae INIT CURRENT LOCAL SYMBOL TABLE EM | 
50 40 9 MOVAB PRC O’KEVPAD(RI1) .RO ; GET ADDRESS OF KEYPAD TABLE LISTHE | 
0 D MOVL ; INIT KEYPAD TABLE EMPT 


RO, TRO) 
MOVL (RO) +, (RO)+ 


3 INITIALIZE PRC -BLEXONLYL, PRC_V_SAVCMDV, AND PRC_V_SAVIMGV 


CLRB PRC_B_EXONLYL (R11) 3 CLEAR EXE-ONLY PROCEDURE FLAG 
BICB grat M_SAVCMDV!PRC_M_SAVIMGV,- ; INIT. SAVED COMM. AND IMG. 


PRAEX_LQRLAPA DMA ES BE EAA AAIAPPINPNPD 
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012¢ CB 68 PRC_B_OUTFLAGS(RIIS : VERIFICATION FLAGS. 
6 : INITIALIZE PRC_L_CURRKEY AND PRC_L_LASTKEY. | 
52 FEBS CFE ONGE MOVAB DEFAULT .R2 ; GET NORMAL STATE DESCRIPTOR | 
51 82 9A MOVZBL (R { : | 
FEB?" 30 0176 SBu DCLSACLOC STATE ! ALLOCATE NORMAL STATE SYMBOL | 
48 AB DO 79 MOVL PRC_L_CURRKEY(R11),- ; LOCK THAT STATE 
4C AB 2c PRE“L“LASTKEY(R11) : | 
| 
7E | 
i: ; CREATE RESERVED SYMBOLS SSTATUS, SSEVERITY, AND SRESTART. | 
02 £2 017 BBSS —_#PPDSV CONTINUE -~ ; IF FIRST STEP IN JOB | 
36 02 AA PPDSW_FLAGS(R105 , 48S : THEN INIT GLOBAL SYMBOLS | 
56, FEBG CF MOVAB RESERVED RE : GET ADDRESS OF RESERVED SYMBOLS | 
55 AB OSE MOVAB PRC_Q GLOBAL (R11), RS : GET ADDRESS OF SYMBOL TABLE LISTHE | 
51 9A 018C 40$:  MOVZBL (R6J+7 : GET MAXIMUM LENGTH OF VALUE STRING 
—E 13 O18 BEQL 508 : IF EOL END OF TABLE 
52 56 pO 0191 HOVE : SET ANY ADDRESS FOR SYMBOL VALUE 
A 0196 MOVIBL <RE)S,R3 : CONSTRUCT DESCRIPTOR OF SYMBOL NAM 
6 36 00 0197 OV RGR : | 
9A ADDL ——RB.RO ; ADJUST TO ADDRESS OFF SET | 
50 01 9A 0190 MOVZBL #S1M_K_PERM.RO : DEFINE SYMBOL AS. PERMANENT 
FESD' 30 O1A BSBY  -DCLSALCOCSYM : ALLOCATE AND INSERT PERMENENT SYMB | 
50 OC Al 9A OIA ROVZBL SYN_T_ SYMBOL (RI) «RO : GET LENGTH OF SYMBOL NAME | 
50 0D A140 9E OIA VAB’  SYRCT SYMBOL? 1 CRTSERO,RO : GET ADDRESS OF SYMBOL VALUE | 
80 Be DIAC CLRW CROT* : CLEAR LENGTH OF SYMBOL VALUE 
51 86 9A OIAE MOVZBL (R6)*,R1 ; GET OFFSET TO ADDRESS OF SYMBOL VA 


Vu RO, STORE HE LENGTH 
MOVCS RO, (RI), (RO) SET VALUE 


BBC #PRC_V_MODE ,PRC_W_FLAGS(R11),49$; BRANCH IF NOT BATCH JOB 


1 
INITIAL = COMMAND INTERPRETER INITIALIZATION 15 <S =1984 33: 57:15 YAX/vits Macro v04-00 Page 9 
v04- COMMAND INTERPRETER START UP 4=SEP=1984 23:41:16 Yoel SRCJINITIAL.MAR;1 (4) 
51 5 C0 1 5 ADDL Ri R1 ; CALCULATE ADDRESS TO STORE VALUE A. 
61 bg 6 MOVL R RO, (Rt) ; SET ADDRESS OF SYMBOL VALUE 
Opa : 1 8 48s: BRW 3 $ : SKIP TO PARAMETER PROCESSING 
ODE 31 ; 49$: BRW $ + SKIP TO END OF BATCH PROCESSING 
1 61; 
: INITIALIZE SRESTART AND BATCHSRESTART SYMBOLS. 
56 58 1 64 50$:  MOvL PRC ot rj LR6 : GET ADDRESS OF RESTART VALUE 
51 FESC — 01 AS MOVAB : GET ADDRESS OF ASCIC FALSE 
1 66 BBC ser WR : BRANCH IF SHOULD BE FALSE | 
05 92 1 o Frags (hi), 55$ : | 
51 fe D 1 68 MOVAB PRUE : Ger ADDRESS OF ASCIC TRUE | 
5 1 $ 55$:  MOVZBL (R1)+,RO > GET LENGTH OF VALUE STRING 
0 MO =2(R6) ; 
1 ° 
1 
1 
1 


OOOO NWR MRMMMMOGCVTVVOOOOWWVIIIIIIOW 
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own 


| 
BBC #PPDSV-RESTART, = ; BRANCH IF NOT RESTARTED | 
OF 92 75 P W_FLAGS(R1O) 58$ 3 
55 9E gi 7 BOLAB PRC AL(R11 ; SET ADDRESS OF SYMBOL TABLE LISTHE | 
SE FFO1 9— 01 7 MOVAB -LNAST GHAMLENGTN($P) , SP ; ALLOCATE BUFFER ON STACK | 
DD 01 78 PUSHL SP : CONSTRUCT DESCRIPTOR OF “BUFFER 
000000F F DD 01 79 PUSHL #LNMSC_NAMLENGTH : 
50 FEID 9€ 01 80 MOVAB BATCHSRESTART, RO + GET ADDRESS OF LOGICAL NAME | 
01 9F 01 81 PUSHAB 1(RO) 3: CONSTRUCT DESCRIPTOR OF LOGICAL NA 
7E 9A 02 Be mOVZBL (RO) ,=(SP) ; 
ge dD0 0 8 OVL : GET ADDRESS OF DESCRIPTOR 
84 ST RtILOG S$ LOGNAM=(RG) , - ; TRANSLATE LOGICAL NAME 
8s RSLBUF =8(R6) ,- : INTO BUFFER ON STACK 
g RSLLEN=8(R6) : 
020 8 DSBMSK=#3 + DON'T LOOK IN GROUP OR SYSTEM TABL | 
00000000'8F 50 01 021 8 CMPL RO #SS$_NORMAL : SUCCESS? | 
0D 12 89 BNEG : IF NOT, CLEAN | 
51 08 A6 7D 4 390 MOVQ B(R6).R1 : GET DESCRIPTOR UOF SYMBOL VALUE 
3 66 7D 8 391 MOV = (R6) , R3 : GET DESCRIPTOR OF RD MBOL NAME | 
50 00 9A 8 3 MOVZBL #SYM.K STRING, RO : DEFINE SYMBOL AS A STRING 
DCF 30 — 39 aso DCLSALCOC + DEFINE SYMBOL IN SYMBOL TABLE 
SE  010F CE 1 34 57$: MOVAB 8+ rt: SNAMLENGTH(SP) SP : DEALLOCATE SCRATCH STORAGE 
6 96 ; 
: : CREATE LOCAL SYMBOLS P1 THRU P8 AS THE JOB PARAMETERS 
62 68 AB O06”sé€#? 99 583: BBC PRC . MODE .PRC_W_FLAGS(R11),70$; BRANCH IF NOT BATCH J 
$8 38 AB 5 490 MOVAB & COCAL(R117,.R5 [SET ADDRESS OF SYMBOL reBLe arses | 
SE FFOI. CE 9E F 401 MOVAB ernst CRARLENGTH(SPD , SP TALLOCATE BUFFER ON STACK | 
E OD 0244 4 2 PUSHL SP [CONSTRUCT DESCRIPTOR OF BUFFER | 
FF BF DD 0246 4 PUSHL sLNMSC NAMLENGTH : | 
00003050 8F DD 024C 404 PUSHL #*A'PO* [PUSH PROTOTYPE LOGICAL/SYMBOL NAME 
: ny) 405 PUSHL SP SAND CONSTRUCT DESCRIPTOR OF IT 
DD . om : PUSHL #2 
$ \ D 3 4 VL SPR iGET oA DRESS OF DESCRIPTOR 
D 3 4 3 MOVL 4&8-R MES | 
OC Ab FF BF C 409 608: ROVE FLARSC _NAMLENGTH, 12(R6) RESET LENGTH OF BUFFER 
09 A6 64 410 INCE 6)” TINCREMENT SYMBOL NAME 
67 411 TRNLOG_S LOGNAM=(R6) ,- S TRANSLATE LOGICAL NAME Pa 


| 
| 
| 
| 
| 
| 
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COMMAND INTERPRETER INITIALIZATION 15=SEP=1984 23:57:15 AX/ Vis Macro v04-0 P 1 | 
ORMAND INTERPRETER  cTANT Ue 2aSEe lobe S8ici ste LOR Mes Macro X04; 00 oor ih; 
| 
90 425; 
4 ? 8 : INITIALIZE PROCESS RMS DATA AREA 
P4 | 
+4 ? : : INIT AND CONNECT FAB, NAM, INPRAB, OUTRAB | 
9 90 430 70$: § MOVAB pRC ct -LENGTH(RII). RB ZSET ADDRESS OF RMS STRUCTUR 
3 Hy 43) MOVAB RDG “FAB(RB) PRC_L_INDFAB(R11) SADDRESS OF GENERAL PURPOSE 
Mm 4 : ASSUME PRD Dec FAB EQ 
MG ASSUME B"BID EQ 
A6 434 ASSUME a BLN EQ 
BO 0206 435 MOVW #FAB t geidect ABsc BLNAB> PRD_G_FAB(R8) ;SET FAB ID/LENGT 
3 AB 4 : MOVAB Dag A AM(R8) ,FABSL_NAM(RB) ~ SSET ADDRESS OF NAM BLOCK 
: BO 4 MOVW PRAR 'd BID eNARSe brag. PRD_G_NAM(R8) ;SET NAM ID/LENGT 
— 0286 438 MOVAB PRD_G_INPRAB(R8), SSET ADDRESS OF INPUT RAB 
9 439 MOVAB PRD~ g “OUTRAB(R8) .R7 [SET ADDRESS OF OUTPUT RAB 
8 CO 440 MOVW RABSC_BID+<RABS $e" BLN@8>,RABSB_BID(R9) :SET RAB ID/LENGTH 
ty é te3 HOVE et eee ee B1D(R7) SSET ADDRESS OF FAB | 
DO ; ces MOVL RB. RABSL-FAB(R?) : | 
0200 445; 
00 446 : SET ISI"S OF INITIAL INPUT/OUTPUT FILES. 
B0 D9 448 * MOVW PPDSW_INPISI(R10) ,RABSW_ISI(R9) :SET INPUT ISI 
B0 0 DS 449 MOVW = PPD$WIOUTISI(R10) ,RABSW-1SI(R7) :SET OUTPUT ISI 
O2DA 451; 
0 DA 43¢ ; SET PPF DIRECT ACCESS, SO THAT RMS USER-MODE EOF CHECKING IS NOT DONE 
$ DA 454 CLRBIT RABSV_PPF_IND,RABSW_ISI(R9) sENABLE DIRECT ACCESS 
6 DF i36 CLRBIT RABSV~PPF-IND.RABSW_1S1(R7) :TO INPUT STREAMS 
O2E4 457; 
0 E4 438 ; STORE DEVICE CHARACTERISTICS IN THE RABSL_CTX FIELD SO THAT RAB IS ENOUGH 
DO 0264 460 MOVL § PPDSL_INPDEV(R10) ,RABSL_CTX(R9) s INPUT DEVICE CHARACTERISTIC 
D0 9 Eg 461 MOVL § PPDSLTOUTDEV(R10) .RABSL—CTX(R7) [OUTPUT DEVICE CHARACTERISTI 
EE 183 : 
EE 464 : INIT ALTINPRAB, ALTOUTRAB. 
FE 466° ASSUME RABSW_ 1S1 EQ RABSB_BLN+1 
09 EE 46 MOVL RABSB~BID(R9) ,PRD ae AL TINPRAB(R 8) :SET RAB ID/LENGTH/IS1 
D F 46 MOVL § RABS$B~BID(R7) .PRD~5-ALTOUTRAB(R8) [SET RAB ID/LENGTH/IS1 
| 
F 470; 
F8 471 ; LIMIT ALLOCATION OF BLOCKS/BUFFERS ON PPF STREAM (PIOSEG SPACE IS LIMITED) 
F 7@ : IN ALL RABS. 
90 FB 474 MOVB #1, RABS$B_MBC(R9) ZONLY ALLOCATE 1 BLOCK/BUFFE 
Ft 475 MOVB #-1 ,RABSE_MBF (RO) sONLY ALLOCATE 1 BUFFER/STRE 
47 ASSUME RABS$B_MBC"EQ RABSB_MBF +1 
80 1 47 MOVW RABSB MBE (RD), RABSG_MBF (R7) : SET MBC/MBF FOR ALL RABS 
8 6 478 VW ABSB-MBF (R9) .- F 
47 PRD_G~ALTINPRAB+RABSB_MBF (R8) ; 
B0 C 480 MOVW = RABSB"MBF(R9),- ; 
F481 PRD_G~ALTOUTRAB+RABSB_MBF (RB) ; 


1 | 
= COMMAND INTERPRETER INITIALIZATION 15-SEP-1984 57:15 VAX/VMS Macro v04-00 Page 12 | 
COMMAND INTERPRETER START UP 27$Eb= 1986 33 41:16 EOC SRCLINITIAL MAR: 1 . (8) 
12 4 
1 & j 3 
] é 4 ; INIT XABTRM. 
41F BF BO 0312 4 6 : MOVW = #XABSC_TR%+<XABSC_TRMLEN@S>, - ;SET XABTRM ID/LENGTH 
1¢0 C 16 4 PRD_G_RABTRM(RB) : 
50 0100 C8 9E 0319 488 MOVAB PRD-G-YABTRM(RB) RO 7GET ADDRESS OF XABTRM BLOCK 
08 AO O1E4 C 43 1E 489 MOVAB PRD-G-RMLIST(RBS ,XABSL_ITMLST (RO) 7SET ADDRESS OF ITEM LIST 
0c ao 18 8B 4 490 MOVW  #ITRMIK_MINLEN, XABSW_ITALST_LEN(RO) ;SET MIN SIZE OF ITEM LIST 
492 ; 
438 ; CONNECT XABTRM TO THE INPUT RABS. 
OOF O ce 50 00 495 ° MOVL RO, PRD_G_INPRAB+RABSL_XAB(R8) ;SET ADDRESS OF XABTRM BLOCK 
0134 (8 50 00 496 MOVL _—- RO, PRD-G-ALTINPRAB+RABSL_XAB(R8) ; 
49 SETBIT RABS$V_ETO,PRD_G_ALTINPRAB+RABSL_ROP(R8) :SET READ WITH XABTRM 
: 498 SETBIT RABSV-ETO,PRD-G_INPRAB+RABSL_ROP(R8) ~~; 
—E 500; 
0 : it ; INIT XABTRM ITEM LIST. 
50 O164 C8 9E $3 ; 88 : MOVAB PRD_G_TRMLIST(R8) ,RO ;GET ADDRESS OF ITEM LIST 
10 AB 50) «=O «(0343 = 504 MOVL RO, PRC_L_TRMLIST(A11) 7SAVE ADDRESS IN PRC 
60 B84 0347 505 CLRW  —« ITRM_W"MODLEN(RO) 7SET READ MODIFIERS 
AO 00 B80 0349 506 MOVW &#TRMS MODIFIERS, ITRM_W_MODCODE (RO) : 
00014000 8F D0 4D 207 MOVL &#TRMSA_TM ESCAPE! TRMSM~TM_NORECALL,- 
04 AO 5 08 ITRM_L-MODIFIERS(RO) ; 
OE AO «(04 «680 «(0355 )~=— 509 MOVW #TRMS_PROMPT, ITRM_W_PMPTCODE (RO) 7SET READ WITH PROMPT 
1A AO 46005) BO «(0359S «510 MOVW  #TRMSTINISTRNG, ITRM-W_INICODE (RO) 7SET USE INITIAL STRING 
26 a0 ~(08~=««B0 0350 312 MOVW  §#TRMSTINIOFFSET, I TRM_@_OFF CODE (RO) :SET USE INITIAL STRING OFFS 
0361 513 ; 
ss 514 ; USE SAME RAB FOR BOTH INPUT AND OUTPUT IF THEY BOTH POINT TO THE SAME STREAM 
0361 515 ; (THIS IS FOR CODE SEGMENTS WHICH DECIDE IF THEY ARE THE SAME BY COMPARING 
0361 1 ; THE INPUT AND OUTPUT RAB ADDRESSES RATHER THAN THEIR ISI'S) 
02 a9 02 a7 81 036] 18° CMPW = RABSW_ISI(R7) ,RABSW_ISI(R9) ;ARE INPUT AND OUTPUT THE SA 
03 12 0 66 19 BNEQ 75$ :BRANCH IF NOT 
57 59 00 68 9 MOVL R9,R7 ;USE INPUT RAB FOR OUTPUT 
68 ; 
68 5 3 STORE FAB/RAB ADDRESSES IN PRC AREA FOR EASY ACCESS 
o¢ AB OCS 09 5 75$:  MOVL R7,.PRC_L_OUTRAB(R11) ;SET ADDRESS OF OUTPUT RAB 
6 aB «59S t 6 MOVL  R9,PRC“L~INPRAB(R11) 7SET ADDRESS OF INPUT RAB 
18 AB 37 D9 3 MOVL $R7,PRC"L~INDOUTRAB(R11) TSET ADDRESS OF INDIRECT OUT 
1408 59 OD A 8 MOVL R9,PRCZLTINDINPRAB(R11) :SET ADDRESS OF INDIRECT INP 
78 0; 
18 1 ; IF IN BATCH JOB, SET THE DEFAULT FLUSH RATE. 
0A 68 AB 06 sE1:=sO037 § ; BBC #PRC_V_MODE,PRC_W_FLAGS(R11),76$ ;BRANCH IF NOT BATCH JOB 
0000 (B FCAB CF «67D 80 4 MOVO  FLUSA_RATE,PRC_O_FLUSHTIME(R11) ?SET DEFAULT FLUSH RATE 
FC76" 30 5 BSBW DCLSSET_TIMER 7SET FLUSH TIMER 


d 


kK 1 
INIT = COMMAND INTERPRETER INITIALIZATION 15-SEP=1 57:15 VAX/ViNS v04-00 Page 13 
Oc-005 COMMAND INTERPRETER START UP 273e b= 1382 $3; 41:16 Yoel SRCJINITIAL. MAR; 1 - té 
| A 7; 
| A 3 ; INITIALIZE INDIRECT FRAME STACK & K & LEVEL 0 FRAME. IF WE HAVE ENOUGH SPACE 
| A 33 : ALLOCATE ROOM FOR EXACTLY 16 FRAMES. IF NOT, GET AS MANY FRAMES AS POSSIBLE. 
0778 (BOSE A 541 76$:  MOVAB PRC_C_LENGTH*PRD_C_XLENGTH(R11),< :SET LIMIT oF ju ERect FRAME 
00A4 CB E 4¢ PRC“L-STACKLM(R1T) *TO WHAT Is AV LABLE 
04 AA C1 4 ADDL3 PPDSQ-CLIREG(R10),- [GET END+1 OF Asta 
50 08 AA 34 44 tae > D$Q-CLIREG+4 (R10) ,RO 
97 4g ;eeeee DO NOT USE LAST PAGE = TO CATCH BUG IN DCL WHICH REFERENCES OFF 
44 4 jeeeee THE END OF THE INDIRECT STACK BEYOND OUR STORAGE AREA. 
50, FEOQO CO.—Oo«*9E p 35 #8 MOVAB =512(R0),RO 
59 aC Ag 9E 039 50 MOVAB =IDF_K_LENGTH(RO) ,R9 ZADDRESS OF LEVEL 0 FRAME 
50 FBC ‘ 9E O3A 51 MOVAB <MAX"DEPTH®IDF K LENGTH(R9) ,RO [COMPUTE BASE OF STACK W/16 
00A6 CB. 50)=—D1s«éO8A 38 CMPL RO PRC_L_STACKCMTR11) [ROOM FOR EXACTLY 16 FRAMES? 
05 1B O3AA 55 BLEQU 77$ ‘IF NOT, USE WHATEVER ROOM W 
00A4 cB «O50 siéiOsCOBaC CCS MOVL RO, PRC_L_STACKLM(R11) SELSE, LIMIT TO EXACTLY 16 F 
O0A0 CB 29 D0 381 55 77$:  MOVL  R9,PRC“L-STACKPT(R11) [SET INDIRECT FRAME STACK PO 
OOBC ¢ 9 00 6 236 MOVL. R9.PRC“L JDELNK (RIT) [SET LINK POINTER 
69 0076 8 00 6€ 00 2c 0 5 MOVCS #0,(SPY,#0,#IDF_C_LENGTH, (R9) :ZERO LEVEL bef FRAME 
03c3 «558 : CIDF_L_LNK=0 TO IBRMINATE L 
O3¢ 559 SCIDFTL“SEARCHCTX=0 TO INITI 
68 A9 «68 AA OD C3 560 MOVAB PPDST_FILENAME(R10),IDF_L_FILENAME(R9) :GET RODRESS “OF INPUT FILE N 
20 a9 «24 AA «BO 03CB) C561 Vd PPDSWTOUTIFI(R10) ,1OF_W-OOTIFI(R9) SSAVE OUTPUT IFI 
0114 CB 246 AA BO cD 36¢ MOVW  § PPDSWTOUTIFI(R10) .PRC~W-OUTIFI(R11) SAV OUTPUT FI 
A9 20 AA BO 03D é MOVW PPDSW-INPIFI(RI ) IDF ~W~ INPIFI(R9) [SAVE INPUT IFI 
2 a9 é A? BO 0308 564 MOVW RABSWIISI(R7), IDF_W_OOTTSI(R9) sSAVE OUTPUT ISI 
0116 CB «O02 A?) SsoBO COO Dp 565 MOVW §RABSW71SI(R7) -PRC-W-OUTISI (R11) SSAVE OUTPUT ISI 
24049 66 AA DO O3E3 566 MOVL PPDSL -OUTDEV(RI )TIBF_L_OUTRABCTX(R9) SAVE OUTPUT DEVCHAR 
0118 (CB O64 AA «O20 «(O8EB «567 MOVL § PPDS$LOUTDEV(R10) -PRC“L-OUTRABCTX(R11) SAVE OUTPUT DEVCHAR 
0C A9 44 AA DO O3EE 568 MOVL pPDst INPDEV(R10) .IDF-L-INPRABCTX(R9) | :SAVE INPUT DEVCHA 
28 AAS 1c 28 O3F 369 mMOVC #PPDSE DVIF ID. PPDST_IRPDVI (R10) -~ SCOPY INPUT DEVICE RWAME/10S 
28 a9 «4B AA s10 38 39 571 MOVC #167PPDST_OUTDVI (R10), IDE_T_OUTDVI (R9) :COPY OUTPUT DEVICE NAME 
011C CB. O48 AA. = 10~—=—o28:s«OSFF 078 MOVC  #16,PPD$T~OUTDVI(R10) .PRC-T-OUTDVI(R11) :COPY OUTPUT DEVICE NAME 
38 AD «94 0406)Ss«*57 CLRB ‘IDF _B OUTFLAGS(R9) SCLEAR CCL BI 
0402 AA 05 €1 0409 574 #PPDSU_INPCCL PPD$W_FLAGS(R10) ,771$ ‘SKIP IF INPUT NOT CCL 
40E 575 SETBIT IDF_V_INPCCL,1DF_B OUTFLAGS(R9S [SET INPCCL BI 
04 02 AA 06 €1 0412 5767718: BBC #PPBSU_OUTCCL,PPBSQ FLAGS(R10) ,772$ ‘SKIP IF OUTPUT NOT CCL 
041 77 SETBIT IDF_V_OUTCCL, IDF 68 OUTFLAGS(R9S 'SET OUTCCL BIT 
012¢c cB O38 ADO 418 28 772$: MOVB IDF-BTOUTFLAGS(R9)7PRC_B_OUTFLAGS(R11) COPY CCL BITS 
421 : 
4 i $ CREATE SYSSOUTPUT LOGICAL NAME AND ENABLE IMAGE VERIFICATION IF IN BATCH JOB. 
, 58 (59 00 421 : MOVL RB :SET ADDRESS OF IDF BLOCK 
FBD9' 426 4 BSBW DCC SCREATE OUTPUT i CREATE SYSSOUTPUT LOGICAL N 
OF $8 AB 06 «OE1=«—(0427 5 BB #PRC_V_MODE,PRC WAFLAGS(RIT), .78$ ‘BRANCH IF NOT BA 
 - AB 09 4 6 MOVL PRC_C_INDFAB(RIT) :GET ADDRESS OF 
02 Al 0084 A8 BO 04 MOVW IDF WTINPIFI PICRS) FABSW. IFICR1) [SET INPUT IFI 
| 00000000'EF 16 4 eS JSB DCLSVERIFY_IMAGE [SET IMAGE VERIFICATION 
4 3 
| 4 $1 ; STACK INITIALIZATION PROCEDURES PROC1 THRU PROC(PPD$B_NPROCS) 
| SE FFOI CE 9E 04 38 78$:  MOVAB -LNMSC_NAMLENGTH(SP) , SP SALLOCATE BUFFER ON STACK 
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NITIALIZATTON 177 3Ee- 138% $3:2/ F 


4-SEP=1 


C ARLE NGTH. 16(R6) 


6 
NPROCS(R10) ,R7 
ine * 
GNAM=( 


PUSHPROC 


V_CAPTIVE,= 
W_FLAGS(R10) ,86$ 
Lis ZNOCMDPROC .RO 


ost iat P1_T0_P8 


t 


Hy AL ASRRO RS R4,R5,R6,R7,RB> 
oR2,R3,R4,R5,R6,R7,R8> 


eit 
8+8+8+LNMSC_NAMLENGTH(SP) , SP 
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sCONSTRUCT DESCRIPTOR OF BUFFER 


PUSH PROTOTYPE PROCEDURE NAME 
: AND CONSTRUCT DESCRIPTOR OF IT 


GET pan bay oF DESCRIPTOR 
:GET NUMBER OF INITIAL PROCEDURES 
SET TO bast “PROCEDURE NAME 


INTO BUFFER ON STACK 


;DON'T LOOK ON OR SYSTEM TABLE 


:NO TRANSLATI 
TIF SO, SKIP THIS 

:GET DESCRIPTOR ye PROCEDURE NAME 
:SPECIFY PRIMARY OUTPUT FILE 
[SUPPRESS RMS ERROR MESSAGES 

[PUSH PROCEDURE ONTO aD Iee eT STACK 
‘BRANCH IF SUCCESS 

SCAPTIVE ACCOUNT? 

:NO, THEN SKIP 

[SET ERROR STATUS 

S TERMINATE THE PROCESS 

SSAVE REGISTER 

’SET NO INITIAL VALUES 

‘DEFINE P1 THROUGH PS 

SRESTORE REGISTERS 


LOOP UNTIL ALL SYMBOLS DONE 
DEALLOCATE SCRATCH STORAGE 


m1 
INITIA -¢ NTERPRETER INITIALIZATION 15=SEP=1984 23:57:15 VAX/VMS Macro V04-00 Page 1 
MATa Ts COMMAND IN URERETER START UP 278Eb= 1382 5 :41:16 (COCL.SRCJINITIAL.MAR;1 ° 3) 
48 T¢ 
4B/ 2 ; RUNDOWN LOGINOUT IMAGE, THUS DELETING ALL USER-MODE LOGICAL NAMES 
FB46" 30 0487 0° BSBW §DCLSRMSRUNDWN sRUNDOWN RMS FILES 
4BA 6 } SRUNDWN_S #PSLSC_USER SRUNDOWN LOGINOUT IMAGE 


N 1 
INITIA = COMMAND INTERPRETER INITIALIZATION 15*SEP=1984 23:57:15 VAX/VMS Macro V04-00 Page 1 
| ¥04~000 COMMAND NTERERETER START UP 7786-1383 $3:27:13 YOCL SRCIIN NITIAL.MAR; 1 . (8) 
4C 4; 
| 4¢ g 5 : IF THIS PROCESS IS A SUBPROCESS WHICH WAS CREATED BY THE DCL SPAWN 
| 4C3 6 : ; COMMAND, THEN OPEN THE MAILBOX CONTAINING THE PROCESS CONTEXT AND 
ac : : INITIALEZE THIS PROCESS. 
7E 7C 04C 6 § CLRQ = SP) sCREATE GETJPI ITEM LIST 
FB AE SF 04C 40 PUSHAB -2#4(SP) ‘SET BUFFER ADDRESS 
00000004 BF D 04€8 641 PUSHL #JPI$_OWNER@16+4 SREQUEST PARENT PID, SET BUFFER LENGTH 
so SE BO bbb cS Se ‘esgory leew 
403 644 SGETUPIW.S ITMLST=8(RO),- ‘GET PID OF PARENT PROCESS 
403 645 EFN=# FSC_SYSEFN,~ ; 
| 403 646 10SB=(RO) : 
SE 08 CO O4EB 643 ADDL  #2%4,SP ‘POP 10SB 
BEDO O4EE 648 POPL R ?GET PID 
SE oc CO O4F1 649 ADDL #34,SP *CLEANUP STACK 
9 DS O04F4 650 TSTL = RO [1S THIS A SUBPROCESS? 
5913 4F6 651 BEQL 1208 SIF NOT, SKIP SPAWN INITIALIZATION 
SE FFOI CE 9E O4F 63¢ MOVAB “LNMSC_NAMLENGTH(SP),SP :ALLOCATE BUFFER ON STAC 
SE DD O4FD 65 PUSHL SP [CONSTRUCT DESCRIPTOR OF BUFFER 
7E FF BF 9A OFF 654 WOVZBL BLNMSC_NAMLENGTH,<(SP) : 
56 E DO 0503 655 SP R6 SPOINT TO BUFFER DESCRIPTOR 
SE 046) «C2 (0506) 656 SuBL SALLOCATE SCRATCH LONGWORD FOR ACMODE 
52. FAF7 CF SE 0509 657 AOVAB SYssenROR, R2 [GET ADDRESS OF ASCIC STRING 
51 82 9A O050E 658 MOVZBL (R2)+,R1 [CONSTRUCT DESCRIPTOR OF STRING 
7E 51 7D 0511 659 mMOVa RI, ae P [PUSH DESCRIPTOR OF SYSSERROR 
514 660 $TRNLOG_S LOGNAN==12(R6) ~ S TRANSLATE SYSS$ERROR 
0514 661 “RSLBUF=(R6),- 
514 66 RSLLEN=(R6) = 
514 66 DSBMSK=#3,- ZONLY SEARCH PROCESS LOGNAME TABLE 
514 664 ACMODE==4 (R6) 
02 FC AG 91 0529 665 CMPB = 4 (R6) , #PSLSC_SUPER ;SUPERVISOR MODE SYSSERROR? 
1D 1 0520 66 BNEQ 1008 [IF NOT, THEN NO CONTEXT WAS PASSED 
41424D5F BF 04 86 Dl O52F 66 CMPL  @4(R6),#*A°_MBA® t1S MAILBOX NAME A PHYSICAL DEVICE? 
03 12 0537 668 BNEG SIF NOT, INVALID SPAUN - DELETE LOGNAM 
008F 30 0539 669 BSBu SPAWN_CONTEXT INITIALIZE BASED ON S TEXT 
50 SE dO 053¢ 670 90$:  MOVL  SP,RO™ [GET ADDRESS OF ‘SY eRROR DESCRIPTOR 
S3F 0671 SDELLOG_S LOGNAM=( RO), [DELETE SUPERVISOR MODE SYSSERROR 
33 67 “TBLE LG=#LOGSC PROCESS, - i LEAVING EXECUTIVE MODE SYSSERROR 
05 F 67 ODE=#PSL$C~ SUPER (WHICH IS EQUIVALENT TO SYSS$OUTPUT) 
SE O113 CE 9E 0946 674 100$:  MOVa8 Bs 4s BeLNMSE “NAMLENGTH(SPS , SP ;DEALLOCATE SCRATCH STORAGE 


00000000 ' GF 
00000000 ' GF 97 
58 50 


sf 68 AB OOF 
A 68 AB 


~~. 


onmm 


onmowu 


co 


E9 


31 


apt 
mea 
z- 


FAAP AAAAAAAAAAO 


69 


706 


NAW I IIAIVASVSSSy 
UFUN OOO NANEWNW ODO 
> 


~“ 


v04-00 


B 2 
LIZATION 1 ~$60-1286 3 :57:15 VAX/VMS Mac 
SEP-1984 23:41:16 JIN ITIA L.MAR;1 | (9) | 


DCL.SRCJI 


; MAKE SURE COMMAND TABLES HAVE A VALID STRUCTURE LEVEL NUMBER 


120$: PUSHL G*CTLSAG_CLITABLE ; GET ADDRESS OF COMMAND TABLES 
CALLS #1,G*CDUSUPGRADE_TABLE : + VALIDATE TABLE STRUCTUR 
BLBC RO, INITIAL ERROR™ : SIGNAL ERROR STATUS AND ABORT 


; TELL THE TERMINAL DRIVER THAT WE NOW OWN THE TERMINAL. 


: BBCC #PRC_V_DETACHED,PRC_W_FLAGS(R11) bie & 


4 & BRANCH IF NOWAIT SUBPROCESS 
BBS atta MODE ,PRC_W_FCAGS(R11), 1258 ; : hut 


BRANCH IF NOT INTERACTIVE 

OCATE AN I0SB 

MO SP,RO T ADDRESS OF I0SB 

$Q10W_S FUNC=#10$_SETMODE!10$M_TT process, - ; ASSUME TERMINAL OWNERSHIP 
CH ANSPRE Q_INPCHAN(R11),= 


10SB=( 
EFN= SAEKESC. _SYSEFN : 
ADDL  #8,SP $ RESTORE THE STACK 


; ENABLE CONTROL/Y AST ROUTINE AND OUT-OF-BAND AST ROUTINES. 


125$: BSBW  OCLSENBCONTRLY : ENABLE CONTROL Y AST'S 
MOVL _OUTOF BAND ( oR1 GET AST 


RCL R11) 
CLRL PRC [ “OUTOF BAND (R11) LIZATION 
BSBW DCLSRESETOOB ; ENABLE/DISABLE APPROPRIATE AST’S 


: ENABLE CHANGE MODE TO SUPERVISOR HANDLING ROUTINE 

SDCLCMH_S W*DCLSCHANGE_MODE ; SET CHANGE MODE TO SUPER HANDLER 
BLBC “RO, INITIAL_ERROR : BRANCH IF ERROR DETECTED 

: PROCESS FIRST COMMAND LINE 


BRW DCLSRESTART ; START COMMAND INTERPRETATION 


: ERROR OCCURED SOMEWHERE IN STARTUP PROCEDURE. 
INITIAL_ERROR: 
MOV 


SIGNAL IT AND ABORT. 


SP,R10 SET BASE ADDRESS OF WRK 
a WRK _C_LENGTH(SP) ,SP sALLOCATE WRK TO SIGNAL MESSAGE 
MOVW #URR_A_COMMAND, WRK -W_FLAGS(R10) ;CLEAR FLAGS, SET WRK_V_COMMAND 
:TO MARK NO ERROR TEXT SEGMENT 
BSBU DCLSERRORMSG ISSUE ERROR MESSAGE 
BRW DCLSABORT sAND EXIT PROCESS 
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E BASED ON SPAWN 4=SEP=1984 23:41:16 (CDOCL.SRCJINITIAL.MAR;1 ( 
-SBTTL SPAWN CONTEXT, INITIALIZE BASED ON SPAWN CONTEXT | 


5c8 727 
cB S88 i 
ate 730 ; THIS ROUTINE IS CALLED TO INITIALIZE THE $ UBPROCESS FROM THE CONTEXT | 
CB f 1 ; PASSED FROM THE PARENT PROCESS DURING EXECUTION OF A SPAWN COMMAND. | 
C8 f 5 : INPUTS: 
O8¢B 735 : R6 = ADDRESS OF DESCRIPTOR OF MAILBOX DEVICE NAME | 
sca? : : (PASSED TO SUBPROCESS AS SYS$ERROR TRANSLATION) 
ScB. S737: R9 = PID OF PARENT PROCESS 
3c , : ; R11 = ADDRESS OF PRC AREA | 
O5¢8 740 : OUTPUTS: | 
05¢B 4g : THE CONTEXT IS INITIALIZED, IF POSSIBLE. | 
05(B 744: RO-RB DESTROYED. tod | 
gece baa 
05CB 747 SPAWN_CONTEXT: 
05(B 748 ASSUME DIBSC_LENGTH LE CTX_C_MAXLEN 
SE FCOO CE 9€ O5CB 749 =CTX_C_MAXLEN(SP) ,SP ~ SALLOCATE DIB/CTX STORAGE 
SE DD 0500 750 PUSHL SP [CREATE DESCRIPTOR OF DIB BUFFER 
7E 0400 BF 3¢ 0502 751 ROvzUL #CTX_C_MAXLEN, =(SP) F 
52 7E ODE 05D £36 =(SPY,R2 sALLOCATE CHANNEL LONGWORD 
OSDA 75 SASSIGN. S DEVNAM=(R6),- ZASSIGN A CHANNEL TO THE MAILBOX | 
OSDA 754 “CHAN=(R2) | 
7A 50 €9 O5E7 755 BLBC RO, 908 [IF ERROR, SKIP IT 
OSEA 136 $GETCHN 3 GihN= R29 = 3GET DEVICE CHARACTERISTICS | 
5A 50 9 O5FD 758 BLBC ERROR, SKIP IT | 
55 0C A214 «€E 600 759 BBC #DEVSV_MBX,,DIBSL_DEVCHAR+12(R2), ide SIF NOT MAILBOX, SKIP IT | 
ae 
0605 16 : READ NEXT RECORD FROM MAILBOX AND PROCESS IT | 
aig 764 10S: MOVL _ SP, R2 :GET ADDRESS OF CHAN, 10SB,BUFFER 
0608 165 $Ql0w_S FUNC=#108_R READVBLK,- SREAD NEXT RECORD | 
0608 767 10SB=4(R25,- i RE-USE DESCRIPTOR AS 10SB | 
0608 768 EFN=#EXESC. SYSEFN,- USE SYSTEM EFN 
0608 769 P1=12(R2),= SADDRESS. OF RECEIVE BUFFER 
608 770 Pos#CTX_CMAXLEN 'SIZE OF RECEIVE BUFFER 
62D 771 BLBC ~— RO, 508 [IF SUBMIT ERROR SKIP IT 
630 10 BLBC 4(R2),50$ [IF 1/0 ERROR (OR EOF), EXIT 
634 77 CMPL B<R »°R9 [1S TRANSMITTER OUR PARENT PROCESS? 
638 774 BNEQ 0$ [IF NOT, SKIP IT | 
63A 775 MOVZWL 6(R2),R4 [GET SIZE OF RECORD 
6 776 MOVAB VCR25 .RS [POINT TO CTX RECORD 
69 777 PUSHAB 10$ [RETURN TO TOP OF LOOP AFTER PROCESS | 
gene | 
645 780 ; THESE ROUTINES MAY DESTROY RO-R8 | 
64 u 1 : ON ENTRY, R4/RS = DESCRIPTOR OF CTX RECORD | 
0645 ie i CTX_W_TYPE (RS) , TYPE=W, <= sCASE ON TYPE OF RECORD 


dD 2 | 
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SPAWN_CONTEXT, INITIALIZE BA SED ON SPAWN 4=SEP=1984 23:41:16 CDCL.SRCJINITIAL.MAR; 1. | 
645 784 SPAWN_HEADER,- sHEADER RECORD | 
64 f 5 SPAWN-CMDSTR,- * COMMAND STRING 
64 : SPAWN-LOGNAM, = TLOGICAL NAME 
645 7 SPAWN-CLISYM,- LI SY 
645 788 SPAWN-KEYSTATE,- [KEYPAD STAT | 
645 789 SPAWN =LNATABLE , ~ ‘LOGICAL NAME TABL 
645 790 SPAWN-LNMNAME , - SSIMPLE LOGICAL NAME 
645 791 SPAWN LNMTRANS SADDITIONAL TRANSLATIONS | 
05 699 19¢ RSB 71F UNKNOWN, SKIP RECORD 
65k 794 508: SDASSGN_S. CHAN (RZ) :DEASSIGN CHANNEL TO MAILBOX 
SE 040C CE 3 0664 795 90$:  MOVAB ~4+8+CTX_C_MAXLEN(SP) ,SP SDEALLOCATE SCRATCH STORAGE 
05 0669 196 | 
066A 79 
066A 798 : | 
066A 799 ; PROCESS A SPAWN HEADER CONTEXT RECORD 
066A 800 
066A 801 SPAWN. HEADER: | 
7E 01 CE 066A 808 MNEGL #1,-(SP) :CREATE PRIVILEGE MASK WITH ALL 
7E 01 CE 066d 80 NE GL #1,-(SP) ‘THE PRIVILEGE BITS SE 
50 SE 00 0670 804 SP-RO [GET ADDRESS OF IT 
0673 805 SSETPRV.S PRVADR=(RO) ,- :DISABLE ALL PRIVILEGES 
0675 806 PRMFLG=#1,- : 
0673 807 ENBFLG=#0 : 
SE 08 CO 0682 808 ADDL #8,SP SDEALLOCATE PRIVILEGE MASK ON STACK 
0685 809 SSETPRV_S BRVADR=CTX_0_PROCPRIV(RS) .~ TENABLE NEW PRIVILEGES 
0685 eit ENBELG=A1 ; 
05 0E AS 804 «1 «0695 13 BBC #CTX V_WAIT,CTX_B_FLAGS(R5) ,5$ ;COPY WAIT FLAG 
069A 81 SETBIT PRC_0_BETACHED,PRC_W_FLAGS(R11) 
05 0F AS 00 «£1 O69F 814 S$: BBC #CTR_0_AUTOLOGO,CTR B _FLAGS(R5),10$ sCOPY SILENT LOGOUT FLAG 
6A4 b15 SETBIT PRC_0_AUTOLOGO,PRC_Q@ FLAGS(R11) 
05 OF AS «401 «=©E1 «(06A9 «816 108: ~—S BBC #CTR_O_MODE,CTX_B_FLAGS(R5) 208 :1F BATCH, SET EOF SILENT LO 
O6AE 817 SETBIT PRC_(_EOF 060,PRC"wW_FLAGS(R11) 
0683 818 20$:  CLRBIT PR C7V VERIFY. Pre O FLA S(R11) sASSUME FLAG OFF 
05 0 AS 02 «£1 «0688 819 BBC CTR av CTR 6 FLAGS(R5) ,25$ [COPY VERIFICATION FLAG 
068 0 SETBIT PRC q "OERIFY. bat a "FLAGS ERI?) 
56 01 00 06C : 125$: MOVL #1 ASSUME FL AG ON 
02 06 AS 403) «EO «(06C 5 BBS #CTX_V_VERIMAGE ,CTX_B_FLAGS(R5) ,30$ [IF SET, FLAG OK AS IS 
56 D4 «(06CA C8 CLRL sR SET FLAG” 0 TURN OFF VERIIF 
00000000°EF 16 06CC 430$:  JSB DCLSSETVERIFY IMAGE [TURN IMAGE VERIFY ON/OFF 
OA AS DO 06D 7 MOVL § CTX_L_OUTOFBARD(RS) ,- [COPY OUT-OF-BAND AST MASK 
00B4 CB 6D 6 PRC-L-OUTOFB ANDIRAIS. | 
50 OF AS 9A 06D8 7 MOVZBL CTX7B OROMPTLENC R5),RO :COPY PROMPT STRING LENGTH 
00FO cB «50 30 6DC : MOVE  RO,PRC_B_PROMPTLEN(R11) : 
10 AS 50 28 0661 MOVC = RO CTX" W “PMPTCTRE CRS). ;COPY PROMPT STRING 
00F1 CB 96E 0 Pre Ww PMPTCTRL(R11) 
00F1 CB 400 «B81 0668 1 cmPy «ss #0, PRC_W_PMPTCTRL(R11) ZCR/LF CURRENTLY IN USE? | 
04 12 O6€D .o 3 TYES, CARRCNTL FLAG OK AS IS 
EF CLRBIT PRC_V_CARRCNTL.PRC_W_FLAGS(R11) :NO, INDICATE NO CR/LF IN USE. 
05 06F3 4 35$: 
6F4 5 
6F4 $i : 
or f PROCESS COMMAND STRING RECORD | 
6F4 9 SPAWN. CMDSTR: | 
56 0060 CB 9E 06F4 840 MOVAB PRC_Q_COMMAND(R11).R6 POINT TO COMMAND DESCRIPTOR AREA | 
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14.005 SPAWN_CONTEXT, INITIALIZE BASED ON SPAWN 4-SEP-1984 $3 :41:16 LOC SRCTINITIAL. MAR; 1 . 4) 
57 3 06F9 841 SUBW3 9 #@CTX_T_CMDSTR,R4,R7 sCOMPUTE SIZE OF COMMAND STRING 
02 A6 9g : gf 4g MOVW Ry ath ) 'SET SIZE OF COMMAND STRING 
reer 1 84 BSBW cL ALLDEACHD SALLOCATE BUFFER TO HOLD COMMAND 
OF F v4 44 BLB RO,90 SIF ERROR, SKIP IT 
66 1 7D 0707 845 MOVG 1. (R6) ; STORE DESCRIPTOR OF BUFFER 
62 O2A 7 28 O70A 46 MOVC R7.CTX_T_CMDSTR(RS),(R2) ;STORE COMMAND STRING IN BUFFER 
63 94 O70F 84 CLRB ss (R’8) -AND ENSURE THAT ITS TERMINATED 
711 848 SETBIT PRC_V_CMD, PRC_B_FLAGS2(R11) ;MARK COMMAND PENDIN 
05 ri¢ 49 90$: $B 
71 50 
717 51 3 
ay 2 + PROCESS SPAWN KEYPAD STATE 
717 854 SPAWN_KEYSTATE: 
51 02 AS 9A 0717 855 MOVZBL CTX_B_KEYLENGTH(RS) ,R1 :GET LENGTH OF STATE 
52 AS 69E «(0718 36 OVAB. CTX" TKEYSTATE(RS) ,R2 [GET ADDRESS OF STRING 
FEDE* 30 O71F 85 SBW  DCLSACLOC_STATE SALLOCATE STATE SYMBOL 
48 AB «D0 (07 : 58 MOVL PRC_L_CURRKEY(R11),- SLOCK THAT STATE 
4C AB 07 59 PRC“L-LASTKEY(R11) : 
05 0727 860 RSB 
0728 861 
0728 866 
0728 863 : PROCESS SPAWN LOGICAL NAME RECOPDS 
0728 864 
0728 865 SPAWN_LOGNAM: 
50 04 A5 9A 0728 B66 MOVZBL CTX_B_ACMODE(RS) ,RO :GET ACMODE OF LOGICAL NAME 
02 50 91 O72c 867 P RO, #PSLSC_SUPER [I$ ACMODE HIGHER THAN SUPER? 
27 19 O72F 868 iss —s-_«908 SIF EXEC OR KERNEL CANNOT DEFINE IT 
06 AS 9F 0731 869 PUSHAB CTX_T_LOGNAM+1(R5) ;PUSH DESCRIPTOR OF LOGNAM 
7E 05 05 9A 0734 870 MOVZBL (CTX~T~ LOGNAM(R5) -(SP) 
52 O04 AE 6€ cI 0738 «871 ADDL3 (SP Py, rts »R2 {POINT TO WORD COUNTED EQLNAM 
51 82 3¢ 0730 87¢ MOVZWL (R2)4 RT : CONSTRUCT DESCRIPTOR OF E EQLNAM 
06 8B 0740 87 PUSHR Rasa” [PUSH DESCRIPTOR OF EQL 
53 SE 00 Orde 7% MOVL _ SP, R3 'GET ADDRESS OF ST wack 
074 75 SCRELOG_S LOGNAR=8(R3) ,~ SCREATE LOGICAL NAME 
745 876 EQLNAM=(R3) , = 
745 77 ACMODE=RO0,- 
74 78 TBLFLG=#LOGS$C_PROCESS 
SE 10 ¢cO 0755 879 ADDL #4*4,SP :CLEANUP STACK 
05 0758 880 90S:  RSB 
sa 
0753 g PROCESS SPAWN CLI SYMBOL RECORDS 
529 5 SPAUN_CLISYM: 
759 6 ASSUME CTX_C_STRING EQ sym. K_STRING 
759 ASSUME CTX"C"~PERM EQ SYM_K-PERM 
759 «888 ASSUME CTX“CBINARY EQ SYM~K_BINARY 
7 3 89 ASSUME CTX"C"KEYPAD EQ Sym KIKEYPAD 
50 05 AS 9A 07 90 MOVZBL CTX"B-SYMTYPE(RS) RO ~ ; RO = SYMBOL TYPE 
54 07 a5) «49E «(0750891 MOVAB. CTX T~SYRBOL{RS) ,Re : GET ADDRESS OF ASCIC NAME 
53 84 9A 0761 9 ROVZBL (ROT#2RS > R3/R4 = DESCRIPTOR OF SYMBOL NAME 
52 54 53 C1 0764 89 ADDL3 R3,R4.R > POINT TO JUST AFTER SYMBOL NAME 
76 94 ASSUME CTX_C_STRING EQ 0 
76 95 ASSUME CTX"C"PERM EQ 1 
76 % ASSUME CTX“C"BINARY EQ 2 
76 9 ASSUME CTX“C"KEYPAD EQ 4 
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ase XT, INITIALIZE BASED ON SPAWN 4-SEP=1984 23:41:16 CDCL.SRCJINITIAL.MAR; 1 
3 CASE R TYPE=B,<- : CASE ON SYMBOL TYPE 
9 $,- : §TRING 

i 0 $,° : chore PERMANENT STRINGS 

768 «9 : $,- t UNKNOWN 

i: 3 10$> : KEYPA DS YMBOL | 
95 7 4 5$ RSB + SKIP UNKNOWN TYPES 
36 ter 905 10$ MOVZWL (2) +.R1 : RI/R2 = DESCRIPTOR OF STRING VALUE 
06 77¢ 3 5 208 MOVL (R2),R1 ; R1 = LONGWORD BINARY VALUE 
DO O77F «9 : 40$ OVL  R5,R6 : COPY ADDRESS OF CTX RECORD 

28 3 ASSUME CTX_C_GLOBAL EQ 0 

7 0 ASSUME CTX“C“LOCAL EQ 1 

7 911 ASSUM CTXTC“KEYTABL a2 

7 af ASE ETX-B_SYATABCR ), TYPE=B, <= : CASE oN SYMBOL TABLE 

7 91 i ; GLOBAL’ SYMBOL TABLE 

7 914 60$.- : LOCAL SYMBOL TABLE 

7 915 65$> ; KEYPAD SYMBOL L 
05 078) 916 RSB : IGNORE OWN SYMBOL TABLE NUMBER 
9— O7RE 917 50S MOVAB PRC_Q_GLOBAL(R11),R5 =: RS = ADDRESS OF GLOBAL SYMBOL LISTHEAD 

OA 11 0792 a8 BRB 70$ 
55 38 AB 9% 0794 919 60$:  MOVAB PRC Q_LOCAL(R11),.R5 : RS = ADDRESS OF LOCAL TABLE LISTHEAD 
55 40 AB 3 79A 921 $5$: MOVAB PRC_Q_KEYPAD(R11),R5 ; RS = ADDRESS OF KEYPAD SYMBOL TABLE 
FE5F* 30 O79E 9 ‘ 0$:  BSBW DCLSRESTORE_SYM + ADD SYMBOL (R1-R6 ARE ARGUMENTS) 

05 O7A1 9 RSB 

was 58 

O7A 3 $ : PROCESS SPAWN LOGICAL NAME TABLE RECORDS 
OA 928 SPAWN_LNMTABLE: 

7A2 «929 CMPB.CTX_B ACMODE (RS) ,~ : IS ACMODE HIGHER THAN SUPER? 

7A5 —- 930 #PSCSC_SUPER ; 

706981 LSS —--908 : IF EXEC OR KERNEL, CANNOT DEFINE IT 

7A 93¢ MOVZBL CTX_B_ACMODE(RS).-(SP) : GET ACMO MODE OF LOGICAL NAME 

ZAC 9 MOVZBL CTX“B-TFLAGS(R5).-(SP) : GET ATTR LAGS” 

780 «934 VAL CTX"TILNMTABLE(R5).R4  : PTR TO NAME 

784 935 MOVZBL (R4J+7R1 : GET SIZE 

787 (9 : PUSHL R4 : PUSH ADDR 

789 (9 PUSHL R1 : AND SIZE 

788 9 8 ADDL2 R1,R4 t ADVANCE TO PARENT TABLE NAME 

7B 9 MOVZBL (R4)+,R1 : GET SIZE 

7C1 940 USHL 4 : PUSH ADDR 

C3 941 PUSHL R1 : AND SIZE 

rc 4g MOVL  SP,R1 : REMEMBER DESCR ADDR 

7¢ 348 SCRELNT_S 

7¢ 45 ATTR=16(R1),- : ATTRIBUTES 

7¢ 46 QUOTA=CTX_L QUOTA(RS).- : Q OTA 

7¢ 4 ),- t ACCESS MODE 

7¢ 48 ~ : DESC OF TABLE NAME 

7¢ 4 : DESC OF PARENT TABLE NAME 

7E 0 : REMOVE DESCRIPTORS 

7E6 1 

FED 988 

7€7 4 : THE FOLLOWING ASSUMES ARE NEEDED BECAUSE THIS CODE PROCESSES LOGICAL 


rave 3h, 


F 
SPAWN_CONTEXT, INITIAL 


Ou eF eu uw 


FPPUVvicoorvr OF 


OU— MD OvwTyns ONAN 


oo 
o 


om 


> 


mo 


WOOD 
696969690909 0909 C8 SI NSIS SNS 


SSSSSSSSSS TA 


=] 
orm 
WAH AAAHOO OO FS FWA ODOWOM D&S MOUNT SP NL oom 


09. 09D 00 
00: 


S 


MOU & On —Ofrorwm orm 


Vr? POM MOA OMDOCOS CoCo 


ae a oat Ch eed od ed od od hh 


NTERPR 


000-0 
AACOUUIUIUIUD 


WO OOnNAW 


ASSUM 
64 


67 BGed 
933: 


10$: 


WDODODOOOOOOODOOOOOOOOO0O0000000000 


696909 09 C9 C9 C908 SINISE NNO OO 


OO 
CoCo 


OOD NAUES WN —$ O OONOUS WN 
vo 
Cc 
nm 
= 
> 
wo 


990 MOVL 


SSSS3s 


OOOO EU" OOONO 


208: 


st 


2 
I R R INITIALIZATION 
ZE BASED ON SPAWN 


; NAME BLOCKS IN THEIR INTERNAL FORMAT. 


ASSUME LNMXSB_FLAGS £Q 
et ets LNBKSB INDEX 


LNMXSW"HASH 
ASSUME LNMXSTOXLATION EQ 


SCRELNA_ 
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0 

LNMX$B_FLAGS+1 
LNMX$B~ INDEX+1 
LNAXSUD HASH+2 


! PROCESS SPAWNED LOGICAL NAMES 
65 louis seme 


pageants tesco og SUPER ;IS ACMODE HIGHER THAN SUPER? 


Ai oF maT ite CANNOT DEFINE IT 


Cty 5 TRANCNT (RS), m4  GOUNT 9 
<373%4> : DESCRIPTORS OF 3 LONGWORDS EA 4 
: ZERO TERMINATOR 
SEC ALLOvNMER : GET SPACE FO FOR ITMLST 
R1_R ; SAVE SPACE DESCRIPTION 
CTX TLLNMNAME(RS),RO 
1(R : MAKE DESCRIPTOR OF TABLE 
(RO) +,=(SP) : NAME 
(SP) ,RO + SKIP OVER TABLE NAME 
1(RO : MAKE DESCRIPTOR OF LOGICAL 
(RO) +,=(SP) 3 NAME 
(SP) RO ; skIP OVER AbOGICAL NAME 
SP MEMBER A DDRESS 


aR 
FLNAXSY XEND .LNMX$B_ FLAGECR '¥ 4208 
(RO)+ ste P) 3 PUS TATTAIBUTE’V vat ve (LNMXSB_ FLAGS) 
#8, (SP), (SP) pur TTRI ieut eS IN 

A<cLiing ATTRIBUTESOI6>*4>, (Raye RA ITMLST NENTRY. FOR XL ATTR 


SP) ; XL Ket 
( a 3 IGNORE RETURN LENGTH 

(RO) +,=(SP) PUSH INDEX VALUE (LNMX$B_INDEX) 

#<<LNMS_INDEX@16>+4>, cra > MAKE ITMLST ENTRY FOR XL INDEX 
SP), (R2)+ ; ADDR OF XL INDEX 

(R2)+ F IGNORE RETURN LENGTH 

#2,R0 + SKIP OVER THE HASH CODE FIELD 
(RO) +,R1 3 STRING LENGTH 

R1, (RO)¢ 3 MAKE ITALST Agnray FOR XL STRING 

#LNMS_ STRING, (R2)+ :  (LNMX$T_XLATI ) 

(RQ) .TR2)# : ADDR OF Rt LOTR ING 

(R2)+ : IGNORE RETURN LENGTH 

R1,RO : SKIP OVER STRI 

10$ : GET NEXT STRING 

(R2)4 : MARK END OF ITMLST 
CTX_B_ACMODE(RS).-(SP) : GET ACCESS MODE 

CTX BONFLAGS(R5) .~(SP) : GET NAME ATTRIBUTES 

SP,R : GET ADDRESS OF STACK 

S - : CREATE THE NAME 

ATTR=(RO) ° : ATTRIBUTES 

TABNAM=8(R4) , = ; TABLE NAME 

LOGNAM=(R4) ,- > LOGICAL NAME 

ACMODE =4 (ROS ,= : ACCESS MODE 

ITMLST=(R7) > ITMLST 
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ADDRESS OF PRC STRUCTUR b-SEP=1984 23:41:16 (CDCL.SRCJINITIAL.MAR; 1 (11) | 
.SBTTL CLISGET_PRC, GET ADDRESS OF PRC STRUCTURE 
THIS ROUTINE IS CAL LLED TO GET THE ADDRESS OF THE CLI 
OWN STORAGE AREA (PRC). 
INPUTS: 
NONE 
OUTPUTS: 
R11 = ADDRESS OF PRC AREA 
LISGET_PRC:: 
MOVAB G°CTLSAG CLIDATA,R11 GET ADDRESS OF PPD 
ROVL PPD$SL_PRC(R11),R ati [SET ADDRESS OF CLI OWN STORAGE 


~ END DCLSSTARTUP 
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DCL.SRCJIN 
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PSECT name Allocation PSECT No. Attributes 
» 4S « 00000000 ( - 9 ( ) NOPIC  USR ABS LCL NO se NOEXE NORD 
SABS FFFFFFFC ¢ -) QO1¢ #1.) NOPIC USR CON ABS LCL NOSHR EXE R&D 
DCL$ZCODE 00000891 ( 2193.) 8 ( §°} NOPIC USR CON REL LCL NOSHR’ EXE 
DCLSSBASE 00000017 ( 23.) ( 3.) NOPIC USR CON REL LCL NOSHR’- EXE 
baewmwoem ar emmoca amen anrawan 
iP Per formance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 16 00:00: 9.08 8 :00:00.60 
Command processing 99 00:00:00.71 :00:04. 
Pass 1 484 0:00: +26 HOR TS 1 
Symbol table sort 0 0:00:02.4 0:00:09.20 
Pass 2 191 0:00:04.24 Be PES 
Sobel table output 46 4's o. 9 0: BO Bd 
Psect synopsis output 00:00:00. 0:00:00.02 
Cross-reference output hs 8-9 Hs Bs Bh 
Assembler run totals 83 0:00:29. 00:01:31.69 


The working ses start was 1800 pages 
110642 ay B (217 pages) of virtual memory were used to buffer_the intermediate code. 
reece were 90 pages of symbol table space a Secote to hold 1671 non-local and 617 local symbols. 
1042 source Lines were read in Pass 1, produci ng object records in Pass 2. 
76 pages of virtual memory were used to define 55 macros. 
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Macro Library name Macros defined 
tits Age: SYSLIBJSYSBLDMLB.MLB; 1 0 
55$D ee: OBJ % MLB: i 11 

-} 3eSDUA He yea 3 
$255$DUA Syst iB STARLET. ele: :2 3} 
Tofacs ‘all libraries) 45 


2046 GETS were required to define 45 macros. 
There were no errors, warnings or information messages. 
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